home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
vclock.src
< prev
next >
Wrap
Text File
|
1991-10-19
|
2KB
|
52 lines
%%HP: T(3)A(R)F(.);
@ VCLOCK, by Steve VanDevender
DIR
SXWATCH
\<< PICT RCL RCLF
PICT PURGE DEG -40
CF PICT { # 22h
# 0h } face REPL {
# 0h # 0h } PVIEW
TIME DUP hands at {
\<<
IFERR DROP2
hands TIME DUP
hands 0 WAIT
THEN
END rest
\>> 491520 } +
STOALARM DROP
IFERR 0 WAIT
THEN
END rest
\>>
hands
\<< { # 41h # 1Fh
} DUP2 30 ROT FP 2
TRNC 600 * a\->p
TLINE 15 ROT HMS\->
30 * a\->p TLINE
\>>
a\->p
\<< DUP2 SIN * 65
+ R\->B ROT ROT COS *
31 SWAP - R\->B 2
\->LIST
\>>
at
\<< DATE .01 TIME
HMS+ 2 TRNC
IF DUP 24 \>=
THEN DROP 1
DATE+ 0
END 2 \->LIST
\>>
rest
\<< at FINDALARM
DELALARM DROP2 STOF
TEXT PICT STO
\>>
face
GROB 63 63 000000CFF100000000000C3C1E1000000000830800E00000000060214203000000081400001C0000000C8003708810000002100240042000008100027000C0000044330210C011000020220770800200001122000080440008002200008008000840770000C10900040000000000001002100000000004200300000000000060050000000000005080320000000083808025000000000280422500000000832140250000000080014072000000008301210000000000004220000000000000022000000000000002A0000000000000821000000000000004100000000000000490000000000000841C10000000000C143410000C100000167C10000C10000C173010000C100000161C10000000000C14900000000000008410000000000000041000000000000004A000000000000082200000EAF3000002200000F2C7000002210000718700004240E000777700820140A000755700820142E000757700832180A000F09700028080E000F9C7000280050000EBE30000500300000000000060021000000000042004000000000000100840C10000C1090008000100004008000011800000C1440000204008100102000044400400C111000081000C1000C0000002100410042000000C800C1088100000081400001C000000006021420300000000830800E0000000000C3C1E100000000000CFF1000000
END